home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u6.d64 / beep.proc < prev    next >
Text File  |  2007-02-28  |  253b  |  13 lines
  1. 9000 PROC BEEP CLOSED
  2. 9010 SID:=54272
  3. 9020 POKE SID+4,32
  4. 9030 POKE SID+24,15
  5. 9040 POKE SID+0,75
  6. 9050 POKE SID+1,34
  7. 9060 POKE SID+5,8
  8. 9070 POKE SID+6,0
  9. 9080 POKE SID+4,33
  10. 9090 FOR I:=1 TO 175 DO NULL
  11. 9100 FOR I:=0 TO 24 DO POKE SID+I,0
  12. 9110 ENDPROC BEEP
  13.